home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d7
/
apcp38.arc
/
#####.ASP
next >
Wrap
Text File
|
1991-01-09
|
1KB
|
49 lines
log close
init n9 07
init n8 07
isfile "APCP.STR"
if not success
clear
box 09 10 15 69 n9
atsay 11 15 n8 "The APCP.STR control file was not found. Entry to"
atsay 12 15 n8 "APCP must be from the dialing directory. Read the"
atsay 13 15 n8 "INSTALLATION and OPERATION sections of [APCP.DOC]."
locate 17 00
alarm
exit
endif
fopeni "APCP.STR" text
fgets s1
fclosei
box 08 38 17 63 n9
atsay 10 42 n8 " - APCP Request"
atsay 12 42 n8 "C - New CITY"
atsay 13 42 n8 "L - Delete LOGS"
atsay 14 42 n8 "E - New EBBS/NODE"
atsay 15 42 n8 "Q - Terminate APCP"
atget 10 42 n8 01 s0
clear
switch s0
case "C"
substr s1 s1 00 05
execute s1
endcase
case "L"
dos "ERASE *."
execute #####
endcase
case "E"
substr s2 s1 05 05
execute s2
endcase
endswitch
box 00 00 02 79 n9
atsay 01 02 n8 "APCP: Terminating ... Telenet disconnecting ..."
hangup
atsay 01 02 n8 "APCP: Terminated ... Telenet disconne"
atsay 01 40 n8 "cted ... now in Procomm Plus ... CIAO."
locate 05 00
exit
return